home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 2 of 3).adf / Intuition_Procs / intui.lha / _PRINTITEXT.Amos / _PRINTITEXT.amosSourceCode
AMOS Source Code  |  1992-02-26  |  991b  |  28 lines
  1. Procedure _PRINTITEXT[_IS,X,Y,F,B,M,X1,Y1,W,A$,N]
  2.    
  3.    A$=A$+Chr$(0)
  4.    
  5.    Reserve As Work 10,20
  6.    
  7.    R=Start(10)
  8.    
  9.    Poke R,F : Inc R : Rem               -- pen colour      
  10.    Poke R,B : Inc R : Rem               -- background colour 
  11.    Doke R,M : Add R,2 : Rem             -- Drawing mode (JAM1,JAM2)  
  12.    Doke R,X1 : Add R,2 : Rem            -- offset from left 
  13.    Doke R,Y1 : Add R,2 : Rem            -- offset from top  
  14.    Loke R,W : Add R,4 : Rem             -- pointer to font description   
  15.    Loke R,Varptr(A$) : Add R,4 : Rem    -- pointer to text string (NULL ternimated)   
  16.    Loke R,N : Rem                       -- pointer to next text structure  
  17.    
  18.    Areg(0)=_IS+84 : Rem                 -- Rastport in A0    
  19.    
  20.    Areg(1)=Start(10) : Rem             -- Address of text structure:      
  21.    Dreg(0)=X : Rem                      -- X position:  
  22.    Dreg(1)=Y : Rem                      -- Y position:      
  23.    
  24.    NULL=Intcall(-216)
  25.    
  26.    Erase 10
  27.    
  28. End Proc